home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / c_windw / window.c < prev    next >
Text File  |  1987-12-22  |  2KB  |  39 lines
  1. /* start of program "window.c"
  2. *    (c) Marietta Systems, Inc 1987
  3. *     All rights reserved
  4. */
  5. #include "mtest.h"
  6. /*    */
  7. void main(){
  8. int a = 1;
  9. clr_scrn("Window test"); 
  10. mk_wndw(5, 5, 20, 75, "First big window");
  11. display(" Notice how all the windows have different color combinations ", 8, 4,
  12.     alt_reverse); 
  13. /*
  14. *   create windows in the top left hand and right hand corners of the screen.
  15. */
  16. if (1 > mk_wndw(TOP_LINE, 0, 10, 27, NULL)) goodbye(101);
  17. display("Notice that the top and   left box lines are missing", 1,1,high);
  18. display("Press any key to continue", 8, 1, alt_low); read_kb();
  19. /*        */
  20. if (1 > mk_wndw(TOP_LINE + 1, 54, 11, SCRN_WID, "top window"))  goodbye(103);
  21. display("Notice that all the box  lines are present", 1, 1, high);
  22. display("Press any key to continue", 8, 1, alt_low); read_kb();
  23. /* 
  24. *    create windows at the bottom right and left  
  25. */
  26. if (1 > mk_wndw(15, 55, SCRN_LEN, SCRN_WID + 1, NULL))goodbye(102);
  27. display("Notice that the bottom   and right box lines are  missing", 1,1,high);
  28. display("Press any key to continue", 8, 1, alt_low); read_kb();
  29. /*        */
  30. if (1 > mk_wndw(14, 1, SCRN_LEN - 1, 27, "bottom window")) goodbye(104);
  31. display("Notice that all the box  lines are present", 1, 1, high);
  32. display("Press any key to continue", 8, 1, alt_low); read_kb();
  33. /*
  34. *    Now peel off the windows one by one
  35. */
  36. while (a) {while(!disp_qry("Ready to peel off a window"));
  37.      a = rm_wndw(); if (a < 0) a = 0;}
  38. goodbye(0);
  39. }